From: Michael Albinus Date: Tue, 25 Aug 2009 08:55:37 +0000 (+0000) Subject: * vc.el (vc-diff-internal): Let-bind `process-file-side-effects' with nil. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10904 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e961e802b674abd62a15d3fcca1e0419d5b4d92c;p=emacs.git * vc.el (vc-diff-internal): Let-bind `process-file-side-effects' with nil. --- diff --git a/lisp/vc.el b/lisp/vc.el index 1f3ea9ddcaf..5bc8e2fd1ec 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1481,7 +1481,8 @@ returns t if the buffer had changes, nil otherwise." ;; I made it conditional on vc-diff-added-files but it should probably ;; just be removed (or copied/moved to specific backends). --Stef. (when vc-diff-added-files - (let ((filtered '())) + (let ((filtered '()) + process-file-side-effects) (dolist (file files) (if (or (file-directory-p file) (not (string= (vc-working-revision file) "0"))) @@ -1828,7 +1829,7 @@ allowed and simply skipped)." (vc-call-backend ',backend 'log-view-mode) (set (make-local-variable 'log-view-vc-backend) ',backend) (set (make-local-variable 'log-view-vc-fileset) ',files) - + ;; FIXME: this seems to apply only to RCS/CVS, it doesn't quite ;; belong here in the generic code. (goto-char (point-max))